home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-to-pattern < prev    next >
Lisp/Scheme  |  1998-08-11  |  671b  |  31 lines
  1. m-to-pattern rest-symbol symbol-template pattern
  2.  
  3. (setq pat1 '(p2 p4 p3 p4 p3 p2))
  4. (setq pat2 '((p2 p4 p3) (p4 p3 p2)))
  5. (setq sym1 '(a b c))
  6. (setq sym2 '(a b = c d = = e f g))
  7. (setq sym3 '((a = b) (c d =) (e = = f)))
  8.  
  9. (m-to-pattern nil sym1 pat1)
  10. => (p2 p4 p3)
  11.  
  12. (m-to-pattern '= sym2 pat1)
  13. => (p2 p4 = p4 p3 = = p4 p3 p4)
  14.  
  15. (m-to-pattern '= sym3 pat1)
  16. => ((p2 = p3) (p4 p3 =) (p2 = = p4))
  17.  
  18. (m-to-pattern '0 sym3 pat2)
  19. => ((p2 0 p3) (p4 p3 0) (p2 0 0 p2))
  20.  
  21. (m-to-pattern nil sym1 pat1)
  22. => (p2 p4 p3)
  23.  
  24. (m-to-pattern nil sym2 pat1)
  25. => (p2 p4 p4 p3 p4 p3 p4)
  26.  
  27. (m-to-pattern nil sym3 pat1)
  28. => ((p2 p3) (p4 p3) (p2 p4))
  29.  
  30. (m-to-pattern nil sym3 pat2)
  31. => ((p2 p3) (p4 p3) (p2 p2))